Mac Power 1997 December/MACPOWER-1997-12.ISO.7z/MACPOWER-1997-12.ISO/MacPowerオリジナル/Edutainment World/チャンプジム for DEMO/DIR/shared.cst/00006_Script_6

Text File | 1997-09-29 | 517b | 32 lines

--Wait
on Cwait n

  --startTimer
  put the timer into T1
  put the timer into T2
  repeat while T1+n > T2
    put the timer into T2
    if the mouseDown = true then exit
  end repeat

end

--**************
on wait n

  --startTimer
  put (the timer)+n into T1
  put the timer into T2
  repeat while T1 > T2
    put the timer into T2
  end repeat
end

--**************
on waitSOUND n
  updateStage
  --startTimer
  repeat while soundBusy(n)=1
  end repeat
  puppetSound 0
end